home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 3.iso / dist / fw_mc.idb / usr / freeware / lib32 / mc / extfs / uarj.z / uarj
Text File  |  2002-07-08  |  616b  |  35 lines
  1. #! /bin/sh
  2. #
  3. # Copyright 1998 Pavel Machek,
  4. # partly based on zip by Jakub Jelinek 1995
  5. #
  6. # Distribute in terms of GPL.
  7. #
  8. #
  9. ARJ=mcunarj
  10.  
  11. mcarjfs_list ()
  12. {
  13. $ARJ v $1 | awk -v uid=${UID-0} '
  14. BEGIN { hyphens=0 }
  15. /^----------/ { if (hyphens > 0) exit 0; hyphens=1; next }
  16. { 
  17. if (hyphens < 1) next;
  18. path=$1;
  19. getline;
  20. printf "-rw-r--r--   1 %-8d %-8d %8d %s-%s %s %s\n", uid, 0, $1, substr($4,4), substr($4,1,2), substr($5,1,5), path
  21. }' 2>/dev/null
  22. }
  23.  
  24. mcarjfs_copyout ()
  25. {
  26. $ARJ p $1 $2 2> $3 > /dev/null
  27. }
  28.  
  29. umask 077
  30. case "$1" in
  31.   list) mcarjfs_list $2; exit 0;;
  32.   copyout) mcarjfs_copyout $2 $3 $4; exit 0;;
  33. esac
  34. exit 1
  35.